home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb37323.lsp < prev    next >
Text File  |  1998-03-15  |  17KB  |  456 lines
  1. ;=============373.23 MULTIBLOCK 8 Zn
  2.  
  3.  
  4. (defun C:37323SV ( / X P1 P2 P3 P4 P5 P6 P7 P8 P9 P10 P11 Wi Wix WH WV
  5.                      E1 SS1 BName)
  6.    (EAITDBL "0037323")
  7.    (princ (strcat "\n\n" EAITbez1))
  8.    (EAITvari)
  9.    (EAITvars)
  10.    (setq X nil)
  11.    (while (not X)
  12.       (if (not EAITebl)(setq EAITebl 10))
  13.       (princ (strcat "\n" (EAITmg "mb_mld15" "009")" (8 - 22) <"))(princ EAITebl)(princ "> : ")  ;Einbaulage X (8 - 22) < EAITebl >:
  14.       (initget 6)
  15.       (setq X (getint))
  16.       (cond ((= X nil)(setq X EAITebl))
  17.             ((AND (>= X 8)(<= X 22))(princ))
  18.             (T        (setq X nil))
  19.       )
  20.    )        
  21.    (setq EAITebl X)
  22.    (setvar "ORTHOMODE" 1)
  23.    (EAITbpt EAITofpun 8 nil)
  24.    (setq P1 (getpoint))
  25.    (if (= P1 nil)(setq P1 (EAITrpt)))
  26.    (setvar "ORTHOMODE" 0)
  27.    (setvar "OSMODE" 0)
  28.    (initget 1)
  29.    (EAITmsg "mb_mld15" "\n" "006" nil)           ;Lage des Flaechenelementes
  30.    (setq Wi (getangle P1)
  31.          Wix (EAITbig Wi))
  32.    (cond ((and (>= Wix   0)(< Wix  90))(setq WH   0 WV  90 Wix 0))
  33.          ((and (>= Wix  90)(< Wix 180))(setq WH 180 WV  90 Wix 180))
  34.          ((and (>= Wix 180)(< Wix 270))(setq WH 180 WV 270 Wix 180))
  35.          (T                            (setq WH   0 WV 270 Wix 0))
  36.    )
  37.    (setq P2 (polar P1 (EAITgib WV) EAITebl)
  38.          P3 (polar P2 (EAITgib WH) 30)
  39.          P4 (polar P3 (EAITgib (+ WV 180)) 8.85)
  40.          P5 (polar P1 (EAITgib WV) (- EAITebl 30))
  41.          P6 (polar P5 (EAITgib WH) 8.85)
  42.          P7 (polar P2 (EAITgib WH)  8)
  43.          P8 (polar P2 (EAITgib WH) 12)
  44.          P9 (polar P2 (EAITgib WH) 17)
  45.          P10(polar P2 (EAITgib WH) 22)
  46.    )
  47.  
  48.    (command EAITlay EAITlse "EAIT50" ""
  49.             EAITplin P2 P3 P4 P6 P5 EAITpls
  50.    )
  51.    (setq E1 (entlast))
  52.    (command EAITlay EAITlse "EAITstp" ""
  53.             EAITlin (polar P1 (EAITgib WH) 8) (polar P1 (EAITgib WH) -12) ""
  54.             EAITlin (polar P7 (EAITgib WV) 5) (polar P7 (EAITgib WV) -5) ""
  55.             EAITlin (polar P8 (EAITgib WV) 5) (polar P8 (EAITgib WV) -5) ""
  56.             EAITlin (polar P9 (EAITgib WV) 5) (polar P9 (EAITgib WV) -5) ""
  57.             EAITlin (polar P10(EAITgib WV) 5) (polar P10(EAITgib WV) -5) ""
  58.    )
  59.    (setq BName (EAITbnr))
  60.    (setq SS1 (EAITSS E1))
  61.    (command EAITblo BName P1 SS1 ""
  62.             EAITege BName P1 "" "" "")
  63.  
  64.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P1 (EAITgib WH) 10) (EAITgib WV) 0) "" "" ""
  65.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  66.    )
  67.                                        
  68.    (EAITvarz2)
  69.    (princ)
  70. );defun SV
  71.  
  72.  
  73.  
  74.  
  75.  
  76. (defun C:37323SH ( / X P1 P2 P3 P4 P5 P6 P7 P8 P9 P10 P11 Wi Wix WH WV
  77.                      E1 SS1 BName )
  78.    (EAITDBL "0037323")
  79.    (princ (strcat "\n\n" EAITbez1))
  80.    (EAITvari)
  81.    (EAITvars)
  82.    (setq X nil)
  83.    (while (not X)
  84.       (if (not EAITebl)(setq EAITebl 10))
  85.       (princ (strcat "\n" (EAITmg "mb_mld15" "009")" (8 - 22) <"))(princ EAITebl)(princ "> : ")  ;Einbaulage X (8 - 22) < EAITebl >:
  86.       (initget 6)
  87.       (setq X (getint))
  88.       (cond ((= X nil)(setq X EAITebl))
  89.             ((AND (>= X 8)(<= X 22))(princ))
  90.             (T        (setq X nil))
  91.       )
  92.    )        
  93.    (setq EAITebl X)
  94.    (setvar "ORTHOMODE" 1)
  95.    (EAITbpt EAITofpun 8 nil)
  96.    (setq P1 (getpoint))
  97.    (if (= P1 nil)(setq P1 (EAITrpt)))
  98.    (setvar "ORTHOMODE" 0)
  99.    (setvar "OSMODE" 0)
  100.    (initget 1)
  101.    (EAITmsg "mb_mld15" "\n" "006" nil)           ;Lage des Flaechenelementes
  102.    (setq Wi (getangle P1)
  103.          Wix (EAITbig Wi))
  104.    (cond ((and (>= Wix   0)(< Wix  90))(setq WH   0 WV  90 Wix 90))
  105.          ((and (>= Wix  90)(< Wix 180))(setq WH 180 WV  90 Wix 90))
  106.          ((and (>= Wix 180)(< Wix 270))(setq WH 180 WV 270 Wix 270))
  107.          (T                            (setq WH   0 WV 270 Wix 270))
  108.    )
  109.    (setq P2 (polar P1 (EAITgib WH) EAITebl)
  110.          P3 (polar P2 (EAITgib WV) 30)
  111.          P4 (polar P3 (EAITgib (+ WH 180)) 8.85)
  112.          P5 (polar P1 (EAITgib WH) (- EAITebl 30))
  113.          P6 (polar P5 (EAITgib WV) 8.85)
  114.          P7 (polar P2 (EAITgib WV)  8)
  115.          P8 (polar P2 (EAITgib WV) 12)
  116.          P9 (polar P2 (EAITgib WV) 17)
  117.          P10(polar P2 (EAITgib WV) 22)
  118.    )
  119.  
  120.    (command EAITlay EAITlse "EAIT50" ""
  121.             EAITplin P2 P3 P4 P6 P5 EAITpls
  122.    )
  123.    (setq E1 (entlast))
  124.    (command EAITlay EAITlse "EAITstp" ""
  125.             EAITlin (polar P1 (EAITgib WV) 8) (polar P1 (EAITgib WV) -12) ""
  126.             EAITlin (polar P7 (EAITgib WH) 5) (polar P7 (EAITgib WH) -5) ""
  127.             EAITlin (polar P8 (EAITgib WH) 5) (polar P8 (EAITgib WH) -5) ""
  128.             EAITlin (polar P9 (EAITgib WH) 5) (polar P9 (EAITgib WH) -5) ""
  129.             EAITlin (polar P10(EAITgib WH) 5) (polar P10(EAITgib WH) -5) ""
  130.    )
  131.    (setq BName (EAITbnr))
  132.    (setq SS1 (EAITSS E1))
  133.    (command EAITblo BName P1 SS1 ""
  134.             EAITege BName P1 "" "" "")
  135.  
  136.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P1 (EAITgib WV) 10) (EAITgib WH) 0) "" "" ""
  137.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  138.    )
  139.  
  140.    (EAITvarz2)
  141.    (princ)
  142. );defun SH
  143.  
  144.  
  145.  
  146. (defun C:37323V1 ( / X NL P0 P1 P2 P3 P4 P5 P6 P7 P8 P10 P11 P12 P13
  147.                      WH WV)
  148.    (EAITDBL "0037323")
  149.    (princ (strcat "\n\n" EAITbez1))
  150.    (EAITvari)
  151.    (EAITvars)
  152.  
  153.    ;Einbaulage
  154.    (setq X nil)
  155.    (while (not X)
  156.       (if (not EAITebl)(setq EAITebl 10))
  157.       (princ (strcat "\n" (EAITmg "mb_mld15" "009")" (8 - 22) <"))(princ EAITebl)(princ "> : ")  ;Einbaulage X (8 - 22) < EAITebl >:
  158.       (initget 6)
  159.       (setq X (getint))
  160.       (cond ((= X nil)(setq X EAITebl))
  161.             ((AND (>= X 8)(<= X 22))(princ))
  162.             (T        (setq X nil))
  163.       )
  164.    )        
  165.    (setq EAITebl X)
  166.  
  167.    ;Lage
  168.    (setvar "ORTHOMODE" 0)
  169.    (setvar "OSMODE" 32)
  170.    (EAITmsg "mb_mld15" "\n" "007" " :")  ;1. Nutlinie:
  171.    (setq NL (entsel " ")
  172.          P0 (osnap (cadr NL) EAITofnaec))
  173.    (EAITmsg "mb_mld15" "\n" "008" nil)(EAITmsg "mb_mld10" " " "015" " : ")(princ "<")(princ EAITofsch)(princ "> ")
  174.                                          ; Punkt auf 2. Nutlinie (Return = relativ) : <SCH> 
  175.    (setq P1 (getpoint P0))
  176.    (if (= P1 nil)(setq P1 (EAITrpt)))
  177.    (setvar "ORTHOMODE" 0)
  178.    (setvar "OSMODE" 0)
  179.    (setq P10 (osnap P0 EAITofend)
  180.          P12 (osnap P0 EAITofmit)
  181.          WH  (angle P10 P12)
  182.          WV  (+ WH (/ Pi 2))
  183.          P13 (inters P1 (polar P1 WV 4) P10 P12 nil)
  184.          P1  (mapcar '/ (mapcar '+ P13 P1) '(2 2 2))
  185.          WV  (angle P1 P13) 
  186.          WH  (+ WV (/ Pi 2))
  187.          WH  (EAITbig WH)
  188.          WV  (EAITbig WV) 
  189.    )
  190.  
  191.   (if (/= (cdr (assoc 2 (entget (car NL)))) nil) (command EAITurs P0) )
  192.   (command EAITzom EAITzof  (mapcar '- P1 '(50 50 0)) (mapcar '+ P1 '(100 100 0)))
  193.   (if (= EAITebl 22)
  194.         (if (/= (ssget (polar P1 (EAITgib WV)  20)) nil)
  195.               (command EAITbru (polar P1 (EAITgib WV) 20) EAITbre (polar (polar P1 (EAITgib WH) -10) (EAITgib WV) 20) (polar (polar P1 (EAITgib WH) 20) (EAITgib WV) 20))
  196.         )       
  197.   )
  198.   (if (= EAITebl 8)
  199.         (if (/= (ssget (polar P1 (EAITgib WV) -20)) nil)                           
  200.               (command EAITbru (polar P1 (EAITgib WV) -20) EAITbre (polar (polar P1 (EAITgib WH) 10) (EAITgib WV) -20) (polar (polar P1 (EAITgib WH) -20) (EAITgib WV) 20))
  201.         )       
  202.   )
  203.   (if (/= (ssget (polar P1 (EAITgib WV)  4)) nil)
  204.         (command EAITbru (polar P1 (EAITgib WV) 4) EAITbre (polar (polar P1 (EAITgib WH) -10) (EAITgib WV) 4) (polar (polar P1 (EAITgib WH) 20) (EAITgib WV) 4))
  205.   )       
  206.   (if (/= (ssget (polar P1 (EAITgib WV) -4)) nil)
  207.         (command EAITbru (polar P1 (EAITgib WV) -4) EAITbre (polar (polar P1 (EAITgib WH) -10) (EAITgib WV) -4) (polar (polar P1 (EAITgib WH) 20) (EAITgib WV) -4))
  208.   )
  209. ;**************Punkte festlegen
  210.   
  211.   (setq P3 (polar P1 (EAITgib WH) -8)
  212.         P4 (polar P1 (EAITgib WH) 8)
  213.         P2 P1
  214.         P1 (polar P1 (EAITgib WV) (- EAITebl 8))
  215.   )
  216.  
  217.   (command EAITlay EAITlse "EAITstpg" ""
  218.            EAITlin P3 P4 ""
  219.   )
  220.   (command EAITege (strcat EAITpfn "37323v1") P1 "" "" (+ WH 180)
  221.            EAITzom EAITzov
  222.   )
  223.  
  224.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P2 (EAITgib WH) 15) "" "" WH
  225.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  226.    )
  227.  
  228.    (EAITvarz2)
  229.    (princ)
  230. );defun V1
  231.  
  232.  
  233.  
  234.  
  235.  
  236.  
  237. (defun C:37323V2 (/ X L L1 NL P P0 P1 P2 P3 P4 P5 P6 P7 P8 P10 P11 P12 P13 P20 P21
  238.                    n LGes W WHg WVg WHb WVb nx E1 SS1 BName dist )
  239.    (EAITDBL "0037323")
  240.    (princ (strcat "\n\n" EAITbez1))
  241.    (EAITvari)
  242.    (EAITvars)
  243.  
  244.    ;Einbaulage
  245.    (setq X nil)
  246.    (while (not X)
  247.       (if (not EAITebl)(setq EAITebl 10))
  248.       (princ (strcat "\n" (EAITmg "mb_mld15" "009")" (8 - 22) <"))(princ EAITebl)(princ "> : ")  ;Einbaulage X (8 - 22) < EAITebl >:
  249.       (initget 6)
  250.       (setq X (getint))
  251.       (cond ((= X nil)(setq X EAITebl))
  252.             ((AND (>= X 8)(<= X 22))(princ))
  253.             (T        (setq X nil))
  254.       )
  255.    )        
  256.    (setq EAITebl X)
  257.  
  258.    ;Lage + Anzahl
  259.    (setq L nil)
  260.    (while (not L)
  261.        (setvar "ORTHOMODE" 0)
  262.        (EAITbpt EAITofes 33 (EAITmg "mb_mld12" "017"))  ;  1. Punkt:
  263.        (setq P20 (getpoint))
  264.        (if (= P20 nil)(setq P20 (EAITrpt)))
  265.        (EAITbpt EAITofes 33 (EAITmg "mb_mld12" "018"))  ;  2. Punkt:
  266.        (setq P21 (getpoint P20))
  267.        (if (= P21 nil)(setq P21 (EAITrpt)))
  268.        (setvar "ORTHOMODE" 0)
  269.        (setvar "OSMODE" 512)
  270.        (EAITmsg "mb_mld12" "\n" "015" ": ")  ;1. Nutlinie:
  271.        (setq NL (entsel " ")
  272.              P0 (cadr NL))
  273.        (setvar "OSMODE" 128)
  274.        (EAITmsg "mb_mld12" "\n" "016" ": ")  ;2. Nutlinie:
  275.        (setq P1 (getpoint P0))
  276.        (setvar "ORTHOMODE" 0)
  277.        (setvar "OSMODE" 0)
  278.        (setvar "APERTURE" 4)
  279.        (setq P10 (osnap P0 EAITofend)
  280.              P11 (osnap P1 EAITofend)
  281.              P12 (osnap P0 EAITofmit)
  282.              P13 (osnap P1 EAITofmit)
  283.              P1  (mapcar '/ (mapcar '+ P12 P13) '(2 2 2))
  284.              W   (angle P20 P1)
  285.              WHb (angle P20 P21)
  286.              WVb (+ WHb (/ Pi 2))
  287.              dist(distance P20 P1)
  288.              L1  (* dist (sin (- W WHb)))
  289.              P1  (polar P20 WVb L1)
  290.              WHg (EAITbig WHb)
  291.              WVg (EAITbig WVb)
  292.        )
  293.       (initget 6 "?")
  294.       (EAITmsg "mb_mld12" "\n" "019" " ")  ;Anzahl der Multibloecke (2,3,...,?): <?>
  295.       (setq n (getint)
  296.             LGes (distance P20 P21) )
  297.       (cond ((or (= n nil)(= n "?")) (setq n (+ 2 (fix (/ (- LGes 300) 600)))) )
  298.             ((= n 1)                 (setq n 2))
  299.       )
  300.       (setq L  (/ (- LGes 300) (float (- n 1))))
  301.       (if (< L EAITlmin)(progn (setq L nil) (EAITmsg "mb_mld12" "\n" "006" " ")(princ EAITlmin)(EAITmsg "mb_mld13" nil "006" nil)(EAITmsg "mb_mld12" " " "020" "\n")))
  302.                                ;Ungültige Eingabe: es werden min. EAITlmin mm je Multiblock benötigt!
  303.    )
  304.  
  305.    ;Schleife
  306.    (setq P1 (polar P1 WHb (- 150 L) )
  307.          nx nil)
  308.    (repeat n
  309.       (setq P1 (polar P1 WHb L))
  310.       (if (not nx)
  311.           (progn 
  312.               (setq nx 1)
  313.               (if (/= (cdr (assoc 2 (entget (car NL)))) nil) (command EAITurs P0) )
  314.           )
  315.       )
  316.       (command EAITzom EAITzof  (mapcar '- P1 '(50 50 0)) (mapcar '+ P1 '(100 100 0)))
  317.       (if (= EAITebl 22)
  318.                (if (/= (ssget (polar P1 WVb  20)) nil)                           
  319.                      (command EAITbru (polar P1 WVb 20) EAITbre (polar (polar P1 WHb 10) WVb 20) (polar (polar P1 WHb -20) WVb 20))
  320.                )       
  321.       )
  322.       (if (= EAITebl 8)
  323.                (if (/= (ssget (polar P1 WVb -20)) nil)                           
  324.                      (command EAITbru (polar P1 WVb -20) EAITbre (polar (polar P1 WHb 10) WVb -20) (polar (polar P1 WHb -20) WVb 20))
  325.                )       
  326.       )
  327.       (if (/= (ssget (polar P1 WVb  4)) nil)
  328.             (command EAITbru (polar P1 WVb 4) EAITbre (polar (polar P1 WHb 10) WVb 4) (polar (polar P1 WHb -20) WVb 4))
  329.       )       
  330.       (if (/= (ssget (polar P1 WVb -4)) nil)
  331.             (command EAITbru (polar P1 WVb -4) EAITbre (polar (polar P1 WHb 10) WVb -4) (polar (polar P1 WHb -20) WVb -4))
  332.       )
  333.       (command EAITzom EAITzov )
  334.       (if (= nx 1)
  335.          (progn
  336.             (setq nx 0)
  337.          
  338.             (setq P3 (polar P1 WHb -8)
  339.                   P4 (polar P1 WHb 8)
  340.             )
  341.  
  342.             (command EAITlay EAITlse "EAITstpg" ""
  343.                      EAITlin P3 P4 ""
  344.             )
  345.             (command EAITege (strcat EAITpfn "37323v1") (polar P1 WVb (- EAITebl 8)) "" "" WHg
  346.             )
  347.       
  348.             (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P1 WVb (- EAITebl 8)) WHb -15) "" "" WHg
  349.                        EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  350.             )
  351.          )
  352.          (progn
  353.             (command EAITege (strcat EAITpfn "37323v1") (polar P1 WVb (- EAITebl 8)) "" "" WHg
  354.                      EAITege (strcat EAITpfn "EAITinfo") (polar (polar P1 WVb (- EAITebl 8)) WHb 2.5) "" "" WHg
  355.                              EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  356.             )
  357.          )
  358.       )
  359.    )
  360.    (EAITvarz2)
  361.    (princ)
  362. );defun V2
  363.  
  364.  
  365.  
  366. (defun C:37323D1 (/ P1 S)
  367.    (EAITDBL "0037323")
  368.    (princ (strcat "\n\n" EAITbez1))
  369.    (EAITvari)
  370.    (EAITvars)
  371.    (setvar "ORTHOMODE" 0)
  372.    (EAITbpt EAITofnaec 512 nil)
  373.    (setq P1 (getpoint))
  374.    (if (= P1 nil)(setq P1 (EAITrpt)))
  375.    (setvar "ORTHOMODE" 1)
  376.    (setvar "OSMODE" 0)
  377.  
  378.    (initget (strcat (EAITmg "mb_mld13" "008") " " (EAITmg "mb_mld13" "009")))
  379.    (EAITmsg "mb_mld12" "\n" "021" " ")(EAITmsg "mb_mld13" nil "008" "/<")(EAITmsg "mb_mld13" nil "009" ">")
  380.                          ;Vollstaendige Darstellung der Multiblöcke ?  Ja/<Nein>
  381.    (setq s (getreal))
  382.    (if (= s (EAITmg "mb_mld13" "008"))(setq s (strcat EAITpfn "37323d1"))(setq s (strcat EAITpfn "37323d2")))
  383.  
  384.    (EAITmsg "mb_mld10" nil "003" nil)            ;Drehwinkel
  385.    (command EAITege S  P1 "" "" EAITofkei pause)
  386.  
  387.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (EAITbw) 2.5) "" "" (EAITbig (EAITbw))
  388.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  389.    )
  390.  
  391.    (EAITvarz2)
  392.    (princ)
  393. );defun D1
  394.  
  395.  
  396.  
  397.  
  398.  
  399.  
  400. (defun C:37323D2 (/ L P10 P11 W WH n LGes nx P0 s s1)
  401.    (EAITDBL "0037323")
  402.    (princ (strcat "\n\n" EAITbez1))
  403.    (EAITvari)
  404.    (EAITvars)
  405.  
  406.    ;Lage + Anzahl
  407.    (setq L nil)
  408.    (while (not L)
  409.       (setvar "ORTHOMODE" 0)
  410.       (EAITbpt EAITofes 33 (EAITmg "mb_mld12" "017"))  ;  1. Punkt:
  411.       (setq P10 (getpoint))
  412.       (if (= P10 nil)(setq P10 (EAITrpt)))
  413.       (EAITbpt EAITofes 33 (EAITmg "mb_mld12" "018"))  ;  2. Punkt:
  414.       (setq P11 (getpoint P10))
  415.       (if (= P11 nil)(setq P11 (EAITrpt)))
  416.       (setvar "ORTHOMODE" 0)
  417.       (setvar "OSMODE" 0)
  418.       (setq W  (angle P11 P10)
  419.             WH (+ (EAITbig W) 90) )
  420.  
  421.       (initget 6 "?")
  422.       (EAITmsg "mb_mld12" "\n" "019" " ")  ;Anzahl der Multibloecke (2,3,...,?): <?>
  423.       (setq n (getint))
  424.       (setq LGes (distance P10 P11))
  425.       (cond ((or (= n nil)(= n "?")) (setq n (+ 2 (fix (/ (- LGes 300) 600)))) )
  426.             ((= n 1)                 (setq n 2))
  427.       )
  428.       (setq L  (/ (- LGes 300) (float (- n 1))))
  429.       (if (< L EAITlmin)(progn (setq L nil) (EAITmsg "mb_mld12" "\n" "006" " ")(princ EAITlmin)(EAITmsg "mb_mld13" nil "006" nil)(EAITmsg "mb_mld12" " " "020" "\n")))
  430.                                ;Ungültige Eingabe: es werden min. EAITlmin mm je Multiblock benötigt!
  431.    )
  432.  
  433.  
  434.    (initget (strcat (EAITmg "mb_mld13" "008") " " (EAITmg "mb_mld13" "009")))
  435.    (EAITmsg "mb_mld12" "\n" "021" " ")(EAITmsg "mb_mld13" nil "008" "/<")(EAITmsg "mb_mld13" nil "009" ">")
  436.                          ;Vollstaendige Darstellung der Multiblöcke ?  Ja/<Nein>
  437.    (setq s (getreal))
  438.    (if (= s (EAITmg "mb_mld13" "008"))(setq s1 (strcat EAITpfn "37323d1"))(setq s1 (strcat EAITpfn "37323d2")))
  439.  
  440.    ;1. Einfügen
  441.    (setq nx nil
  442.          P0 (polar P11 W (- 150 L)) )
  443.    (repeat n
  444.       (setq P0 (polar P0 W L))
  445.       (command EAITege s1 P0 "" "" (+ WH 90)
  446.                EAITege (strcat EAITpfn "EAITinfo") (polar P0 (EAITbw) 2.5) "" "" (EAITbig (EAITbw))
  447.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  448.       )
  449.    )
  450.  
  451.    (EAITvarz2)
  452.    (princ)
  453. );defun D2
  454.  
  455. (princ)
  456.